home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl-5.003.tar.gz / perl-5.003.tar / perl-5.003 / eg / van / vanexp < prev    next >
Text File  |  1994-10-18  |  451b  |  22 lines
  1. #!/usr/bin/perl
  2.  
  3. # $RCSfile: vanexp,v $$Revision: 4.1 $$Date: 92/08/07 17:20:53 $
  4.  
  5. # This is for running from a find at night to expire old .deleteds
  6.  
  7. $can = $ARGV[0];
  8.  
  9. exit 1 unless $can =~ /.deleted$/;
  10.  
  11. ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
  12.    $blksize,$blocks) = stat($can);
  13.  
  14. exit 0 unless $size;
  15.  
  16. if (time - $mtime > 2 * 24 * 60 * 60) {
  17.     `/bin/rm -rf $can`;
  18. }
  19. else {
  20.     `find $can -ctime +2 -exec rm -f {} \;`;
  21. }
  22.